Imports System.Configuration
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Diagnostics.Eventing
'------------------------------------------------------------------------------------------------------
Public Class FormRicette
    Dim con As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\Ricette.accdb")
    Dim dt As New DataTable
'------------------------------------------------------------------------------------------------------
'Aggiorna DataGridView
    Private Sub UpdateDataGridMod()

        DataGridViewMod.DataSource = Nothing

        dt.Clear()
        dt.Rows.Clear()
        dt.Columns.Clear()

        Dim strquery As String
        con.Open()
        strquery = "SELECT * FROM Modelli order by Codice asc"
        Dim QCommand As New OleDbCommand(strquery, con)
        Dim InsRead = QCommand.ExecuteReader
        dt.Load(InsRead)
        con.Close()

        DataGridViewMod.DataSource = dt
        DataGridViewMod.AutoResizeColumns()

    End Sub
'------------------------------------------------------------------------------------------------------
    Private Sub RecordDelete()

        'Cancella record
        con.Open()
        Dim strquery As String
        strquery = "DELETE FROM Modelli WHERE Codice = " & TextBoxInsCod.Text & ""
        Dim QCommand As New OleDbCommand(strquery, con)
        Dim InsData = QCommand.ExecuteScalar
        con.Close()

    End Sub
'------------------------------------------------------------------------------------------------------
    Private Sub RecordInsert()

        'Inserisci record
        con.Open()
        Dim strquery As String
        strquery = "INSERT INTO Modelli VALUES (" & TextBoxInsCod.Text & ",'" & TextBoxInsDesc.Text & "'," & TextBoxInsCoreH.Text & "," & TextBoxInsCoreW.Text & ",'" & ComboBoxInsJoint.Text & "'," & TextBoxInsAux1.Text & "," & TextBoxInsAux2.Text & "," & TextBoxInsAux3.Text & "," & TextBoxInsAux4.Text & ")"
        Dim QCommand As New OleDbCommand(strquery, con)
        Dim InsData = QCommand.ExecuteScalar
        con.Close()

    End Sub
'------------------------------------------------------------------------------------------------------
End Class
'------------------------------------------------------------------------------------------------------
